object SeriNoGirF: TSeriNoGirF
  Left = 462
  Top = 169
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Seri No Giri'#351'i'
  ClientHeight = 371
  ClientWidth = 502
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object ekle: TSpeedButton
    Left = 7
    Top = 336
    Width = 44
    Height = 25
    AllowAllUp = True
    GroupIndex = 1
    Down = True
    Caption = 'Ekle'
  end
  object cikart: TSpeedButton
    Left = 55
    Top = 336
    Width = 47
    Height = 25
    AllowAllUp = True
    GroupIndex = 1
    Caption = #199#305'kart'
  end
  object tamam: TSpeedButton
    Left = 160
    Top = 336
    Width = 48
    Height = 25
    AllowAllUp = True
    Caption = 'Kapat'
    OnClick = tamamClick
  end
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 35
    Height = 14
    Caption = 'Seri No'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 67
    Width = 32
    Height = 14
    Caption = 'Ambar'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 9
    Top = 312
    Width = 23
    Height = 14
    Caption = 'Adet'
  end
  object Label4: TLabel
    Left = 8
    Top = 40
    Width = 23
    Height = 14
    Caption = 'Adet'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object SeriNok: TEdit
    Tag = 1002
    Left = 46
    Top = 8
    Width = 164
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyPress = SeriNokKeyPress
  end
  object lcSerinos: TwwDBLookupCombo
    Left = 46
    Top = 8
    Width = 164
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'Serinos'#9'50'#9'Serinos'#9#9)
    LookupTable = VirusSerinos
    LookupField = 'serinos'
    Navigator = False
    ParentFont = False
    TabOrder = 1
    Visible = False
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
    OnChange = lcSerinosChange
    OnKeyPress = SeriNokKeyPress
  end
  object wwDBGrid2: TwwDBGrid
    Left = 8
    Top = 88
    Width = 200
    Height = 211
    DisableThemes = False
    Selected.Strings = (
      'serinos'#9'29'#9'Seri No'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Color = 14811135
    DataSource = dm.spfatharhars
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    TitleAlignment = taCenter
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object st: TStaticText
    Left = 38
    Top = 306
    Width = 49
    Height = 20
    Alignment = taRightJustify
    AutoSize = False
    BorderStyle = sbsSunken
    Font.Charset = TURKISH_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object bexport: TButton
    Left = 160
    Top = 303
    Width = 49
    Height = 25
    Caption = 'Export'
    TabOrder = 5
    OnClick = bexportClick
  end
  object adetk: TEdit
    Left = 46
    Top = 33
    Width = 36
    Height = 22
    TabOrder = 2
    Text = '1'
  end
  object bdosyaal: TButton
    Left = 92
    Top = 303
    Width = 63
    Height = 25
    Caption = 'Dosya. Al'
    TabOrder = 3
    OnClick = bdosyaalClick
  end
  object Liste: TListBox
    Left = 40
    Top = 216
    Width = 121
    Height = 33
    ItemHeight = 14
    Items.Strings = (
      'Liste')
    TabOrder = 7
    Visible = False
  end
  object wwDBGrid1: TwwDBGrid
    Left = 220
    Top = 8
    Width = 276
    Height = 346
    DisableThemes = False
    Selected.Strings = (
      'stokkodu'#9'25'#9'Stok Kodu'#9'F'
      'miktar'#9'6'#9'Miktar'#9#9
      'okutulan'#9'6'#9'Okutulan'#9#9)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = FatharQS
    KeyOptions = [dgEnterToTab]
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 8
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    OnCalcCellColors = wwDBGrid1CalcCellColors
  end
  object ambark: TwwDBLookupCombo
    Left = 46
    Top = 59
    Width = 164
    Height = 22
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
    LookupTable = dm.AmbarQ
    LookupField = 'id'
    Color = 14811135
    Navigator = False
    ReadOnly = True
    TabOrder = 9
    AutoDropDown = True
    ShowButton = False
    UseTFields = False
    AllowClearKey = True
    ShowMatchText = True
  end
  object bgarantibastir: TButton
    Left = 224
    Top = 8
    Width = 65
    Height = 22
    Caption = 'Gar.Yaz'
    TabOrder = 10
    Visible = False
    OnClick = bgarantibastirClick
  end
  object autogarbask: TCheckBox
    Left = 85
    Top = 36
    Width = 61
    Height = 17
    Caption = 'Gar.Kart'
    TabOrder = 11
  end
  object cxGrid1: TcxGrid
    Left = 240
    Top = 160
    Width = 233
    Height = 185
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    Visible = False
    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = True
    object cxGrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = YazdirQS
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      object cxGrid1DBTableView1serinos: TcxGridDBColumn
        Caption = 'Seri No'
        DataBinding.FieldName = 'serinos'
        PropertiesClassName = 'TcxTextEditProperties'
        Width = 150
      end
      object cxGrid1DBTableView1stokkodu: TcxGridDBColumn
        Caption = 'Stok Kodu'
        DataBinding.FieldName = 'stokkodu'
        Width = 150
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object birlestirc: TCheckBox
    Left = 157
    Top = 40
    Width = 60
    Height = 13
    Caption = 'Birle'#351'tir'
    TabOrder = 13
  end
  object Tire: TwwCheckBox
    Left = 458
    Top = 355
    Width = 42
    Height = 17
    TabStop = False
    DisableThemes = False
    AlwaysTransparent = False
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    DisplayValueChecked = 'True'
    DisplayValueUnchecked = 'False'
    NullAndBlankState = cbUnchecked
    Caption = '(*)(-)'
    TabOrder = 14
  end
  object LMDIniCtrl1: TLMDIniCtrl
    IniFile = '.INI'
    IniPrefix = ppProgram
    RegPath = '\Software\kalem\gartakip'
    Left = 680
    Top = 40
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Text Files (*.txt)|*.txt'
    Left = 504
    Top = 200
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 400
    Top = 32
    object UrunuVer_1: TMenuItem
      Caption = #220'r'#252'n'#252' Ver'
      OnClick = UrunuVer_1Click
    end
    object OkutulanDeeriSfrla1: TMenuItem
      Caption = 'Okutulan De'#287'eri S'#305'f'#305'rla'
      OnClick = OkutulanDeeriSfrla1Click
    end
  end
  object StokkodBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'barkod'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 40
        Value = Null
      end>
    SQL.Strings = (
      'select * from stbarkod with (nolock)'
      'where barkod=:barkod')
    Left = 400
    Top = 128
  end
  object FatharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = FatharQAfterScroll
    Parameters = <>
    SQL.Strings = (
      
        'select *,izlemeturu=(select izlemeturu from stok where stok.stok' +
        'kod=fathar.stokkod),kalan=(miktar-isnull(okutulan,0)),GrupId=(Se' +
        'lect GrupId From Stok Where Stokkod=fathar.Stokkod) from fathar ' +
        'with (nolock)')
    Left = 328
    Top = 80
  end
  object FatharQS: TDataSource
    DataSet = FatharQ
    Left = 256
    Top = 80
  end
  object SeriNoBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select *,'
      'GrupId=(Select GrupId From Stok Where Stokkod=fatharhar.stokkod)'
      ' from fatharhar '
      'with (nolock) where serinos=:serinos')
    Left = 256
    Top = 32
  end
  object FaturaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'bilisno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatura  with (nolock)'
      'where bilisno=:bilisno')
    Left = 256
    Top = 128
  end
  object YazdirQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select top 1  serinos,dbo.getstokkodu(stokkod) as stokkodu  from' +
        ' fatharhar')
    Left = 504
    Top = 144
  end
  object YazdirQS: TDataSource
    DataSet = YazdirQ
    Left = 504
    Top = 56
  end
  object BaglantiSerinoQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'anaserino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from BaglantiSerino'
      'where anaserino=:anaserino')
    Left = 328
    Top = 32
  end
  object ServisQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from servis'
      '')
    Left = 504
    Top = 96
  end
  object VirusSerinos: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select Top 20  Serinos from fatharhar '
      'with (nolock) where Bilisnocik is null and Makinano is null and '
      
        'Bilisnogir in (Select Bilisno From TblGarantiKartSeri Where Stok' +
        'kod=fatharhar.stokkod) and'
      'Stokkod=:Stokkod '
      'order by Bilisnogir')
    Left = 400
    Top = 80
  end
  object rprn1: TRAWPrinter
    PrinterName = 'Zebra'
    DocumentTitle = 'VirusSeri'
    TrControl = True
    Left = 424
    Top = 200
  end
  object adoZpaketBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'seri'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar  with (nolock) where makinano=:seri '
      'and substring(serinos,1,3)='#39'PAK'#39)
    Left = 376
    Top = 200
  end
  object adoTemp: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'bilisno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatura  with (nolock) where bilisno=:bilisno')
    Left = 320
    Top = 208
  end
  object adotemp2: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'bilisno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatura  with (nolock) where bilisno=:bilisno')
    Left = 320
    Top = 256
  end
  object EkParcalarQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano1'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'makinano2'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'makinano3'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'makinano4'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'makinano5'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod,'
      
        '       stokkodu=(select stokkodu from stok where stok.stokkod=ur' +
        'emrihar.stokkod),'
      
        '       tmiktar=(select sum(miktar) from Uremrihar U where U.Emir' +
        'no=uremrihar.emirno and U.stokkod=uremrihar.stokkod),'
      
        '       gmiktar=(select COUNT(stokkod) from Fatharhar F where F.m' +
        'akinano=:makinano1 and F.stokkod=uremrihar.stokkod)*(select mikt' +
        'ar from Uremri where Uremri.emirno=Uremrihar.emirno),'
      '       miktar'
      'into #yeni from uremrihar'
      
        'where (emirno=(select uretimno from uretim where makinano=:makin' +
        'ano2) and degisim=2  and (isnull(UretimdeOkutma,0)=0) and yapila' +
        'n is not null) '
      ''
      
        'Select stokkod,Stokkodu,miktar=ceiling(miktar/(select miktar fro' +
        'm uremri where emirno=(select uretimno from uretim where makinan' +
        'o=:makinano3))) from #yeni'
      'where gmiktar>=tmiktar or Stokkod=6076'
      'union'
      
        'select stokkod,stokkodu=(select stokkodu from stok where stok.st' +
        'okkod=uremrihar.stokkod),miktar=(miktar/(select miktar from urem' +
        'ri where emirno=(select uretimno from uretim where makinano=:mak' +
        'inano4))) from uremrihar '
      
        'where emirno=(select uretimno from uretim where makinano=:makina' +
        'no5) and degisim=2 and yapilan is null and (select izlemeturu fr' +
        'om stok where stok.stokkod=uremrihar.stokkod)=1'
      ''
      'drop table #yeni')
    Left = 320
    Top = 137
  end
  object AdoZPaketKontrol: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'seri'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'Seri2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'Select Stokkod,dbo.GetStokKodu(Stokkod) Stokkodu From Fatharhar ' +
        'Where Makinano in'
      
        '(select Serinos from fatharhar  with (nolock) where makinano=:Se' +
        'ri'
      'and substring(serinos,1,3)='#39'PAK'#39')'
      'and stokkod in (select stokkod from EkParcaAktarim)'
      'Union'
      'select Stokkod=AnaStokkod,Stokkodu=dbo.GetStokkodu(AnaStokkod) '
      
        'from TblStokKarmaZPaket Where KStokkod=(select Stokkod from fath' +
        'arhar  with (nolock) where makinano=:Seri2'
      'and substring(serinos,1,3)='#39'PAK'#39')')
    Left = 256
    Top = 200
  end
  object ExtraOptions1: TExtraOptions
    About = 'TExtraDevices 3.00'
    HTML.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    HTML.BackLink = '&lt&lt'
    HTML.ForwardLink = '&gt&gt'
    HTML.ShowLinks = True
    HTML.UseTextFileName = False
    HTML.ZoomableImages = False
    HTML.Visible = True
    HTML.PixelFormat = pf8bit
    HTML.SingleFileOutput = False
    XHTML.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    XHTML.BackLink = '&lt&lt'
    XHTML.ForwardLink = '&gt&gt'
    XHTML.ShowLinks = True
    XHTML.UseTextFileName = False
    XHTML.ZoomableImages = False
    XHTML.Visible = True
    XHTML.PixelFormat = pf8bit
    XHTML.SingleFileOutput = False
    RTF.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    RTF.Visible = True
    RTF.RichTextAsImage = False
    RTF.UseTextBox = True
    RTF.PixelFormat = pf8bit
    RTF.PixelsPerInch = 96
    Lotus.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Lotus.Visible = True
    Lotus.ColSpacing = 16934
    Quattro.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Quattro.Visible = True
    Quattro.ColSpacing = 16934
    Excel.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Excel.Visible = True
    Excel.ColSpacing = 16934
    Excel.RowSizing = False
    Excel.AutoConvertToNumber = True
    Graphic.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    Graphic.PixelFormat = pf8bit
    Graphic.UseTextFileName = False
    Graphic.Visible = True
    Graphic.PixelsPerInch = 96
    Graphic.GrayScale = False
    PDF.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    PDF.FastCompression = False
    PDF.CompressImages = True
    PDF.ScaleImages = True
    PDF.Visible = True
    PDF.RichTextAsImage = False
    PDF.RichEditPixelFormat = pf1bit
    PDF.PixelFormat = pf24bit
    PDF.PixelsPerInch = 96
    PDF.Permissions = [ppPrint, ppModify, ppCopy, ppModifyAnnot]
    PDF.ViewerPreferences = []
    PDF.AutoEmbedFonts = True
    PDF.ImageFormat = riBitmap
    DotMatrix.ItemsToExport = [reText, reImage, reLine, reShape, reRTF, reBarCode, reCheckBox]
    DotMatrix.Visible = True
    DotMatrix.CharsPerInch = cs10CPI
    DotMatrix.LinesPerInch = ls6LPI
    DotMatrix.Port = 'LPT1'
    DotMatrix.ContinousPaper = False
    DotMatrix.PrinterType = ptEpson
    Left = 241
    Top = 185
  end
  object PixelKontrol: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Carikod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'SiparisNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 9
        Value = Null
      end
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'BilisNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select Carikod,SiparisNo,Stokkod '
      'From TblAnlasma An WITH(NOLOCK)'
      'left Join TblAnlasmahar Anh on (An.Ref=Anh.AnlasmaRef)'
      'Where An.Aktif=1 and An.Tipi=1 and'
      '(Getdate()>=An.BasTarih and Getdate()<=An.BitTarih)'
      'and (Carikod is null or Carikod=:Carikod)'
      'and (SiparisNo is null or SiparisNo=:SiparisNo)'
      'and (Stokkod is null or Stokkod=:Stokkod)'
      'and (BilisNo is null or BilisNo=:BilisNo)')
    Left = 596
    Top = 331
  end
  object adoFatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'seri'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'seri2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select Stokkod=(Case When Substring(MakinaNo,1,3)='#39'PAK'#39' then Sto' +
        'kkod Else (select AnaStokkod from TblStokKarmaZPaket Where KStok' +
        'kod=Fatharhar.Stokkod) end),'
      
        'Stokkodu=(Case When Substring(MakinaNo,1,3)='#39'PAK'#39' then dbo.GetSt' +
        'okkodu(Stokkod) Else (select dbo.GetStokkodu(AnaStokkod) from Tb' +
        'lStokKarmaZPaket Where KStokkod=Fatharhar.Stokkod) end),'
      '*,'
      
        'garantisuresi=(Select GarVerilen from Stok Where Stokkod=Fatharh' +
        'ar.Stokkod) '
      
        'from fatharhar  with (nolock) where makinano=:Seri or Serinos=:S' +
        'eri2')
    Left = 608
    Top = 144
  end
end
